<%@LANGUAGE="VBSCRIPT"%> 
<%
Dim myFunc
myFunc = request.querystring("FUNC_AREA_ID")
Dim funcNum
funcNum = 1
while (NOT rsWebSpecimen.EOF)
if funcNum < rsWebSpecimen.Fields.Item("FUNC_AREA_ID").Value then
funcNum = rsWebSpecimen.Fields.Item("FUNC_AREA_ID").Value
end if
rsWebSpecimen.movenext()
Wend
funcNum = funcNum + 1
rsWebSpecimen.movefirst()
%>
<html>
<head>
<title>add container</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="tables.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="660" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr> 
    <td align="center"><img src="images/Banner.jpg" width="660" height="108"></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> 
      <div align="center"><b>Write a functional area to add to the database </b></div>
    </td>
  </tr>
</table>
<table width="660" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr> 
    <td> 
      <div align="center"><b>Choose an existing container to edit</b></div>
    </td>
  </tr>
</table>
</body>
</html>
